home *** CD-ROM | disk | FTP | other *** search
Wrap
<?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" > <background> <id>64252</id> <filler1>0</filler1> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <link rel="stylesheet" type="text/css" href="stylesheet_9613.css" /> <part> <id>1</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>485</left> <top>3</top> <right>509</right> <bottom>22</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>16560</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpvisual scroll left fastgo nextend mouseUp</script> </part> <part> <id>2</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>3</left> <top>3</top> <right>27</right> <bottom>22</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>15420</icon> <textAlign>center</textAlign> <font>Chicago</font> <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseUpvisual scroll rightgo prevend mouseUp</script> </part> <part> <id>3</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>89</left> <top>2</top> <right>436</right> <bottom>26</bottom> </rect> <style>transparent</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> <font>Helvetica</font> <textSize>18</textSize> <textStyle>bold</textStyle> <textHeight>24</textHeight> <name>Title</name> <script></script> </part> <part> <id>4</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <false /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <false /> </lockText> <rect> <left>26</left> <top>39</top> <right>481</right> <bottom>415</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> <font>Geneva</font> <textSize>12</textSize> <textStyle>plain</textStyle> <textHeight>16</textHeight> <name>AllOthersFld</name> <script></script> </part> <name></name> <script>on TotalCardlock screenput empty into TypesHolderrepeat with i = 1 to the number of the last card of bkgnd "ZoneInformation"if (not(the suspended) and the shiftKey is "down") thenexit TotalCardend ifgo to card i of bkgnd "ZoneInformation"repeat with j = 1 to the number of lines in fld Othersset cursor to busyput line j of fld Others into TypesTempput last line of TypesHolder into Containerset cursor to busyif TypesHolder is empty thenput TypesTemp into TypesHolderelse if (TypesTemp > Container) thenput TypesTemp into line (number of lines in TypesHolder + 1) of TypesHolderelserepeat with k = 1 to the number of lines of TypesHolderset cursor to busyput line k of TypesHolder into Containerif (TypesTemp = Container) thenexit repeatelse if (TypesTemp < Container) thenput return before line k of TypesHolderput TypesTemp into line k of TypesHolderexit repeatend ifend repeatend ifend repeatend repeatgo to card AllOthersput TypesHolder into fld AllOthersFldset cursor to normalunlock screenend TotalCard</script> </background>